أ أكلية درإسات الحاسوب ولا حكاء 
تقانة صعلوصانت 


ا 1 


ASPaفl‎ 


a‏ : محمد ادریس على خمیدس 
لرولة : السوداه-ريك 
لجامعة : كررفان - كلدة دراسات الخاسون والإحصاء - تقانة معلومات 


mohammedrabak @ yahoo.com : ıı) 


| 
| 
| 
| 


مقدمة عن ۸$S۲‏ 


یحتوی ملف ۸8۲ على نصوص )×ع) وعلی وسوم لغة ام) ۳8 والاسکربت امذ]ءء وهما لغتين 1ھuئ¡۷)‏ 
B41٥, J22 (‏ بینما یتم تنفیذ الاسکر بت في ال؟إع۲۷ع؟ 


.( Visual Basic Script and java script) jıتغl‎ JêڵJا هو على‎ .1 
Html , xhtml .2 


ما ھی ال ۸8S۶‏ 
وهي تعني صفحات الملقم النشط ععه۴ إع۷إعS‏ ع ۸)۷ وهي منتجة من شركة ماكروسوفت وهي عبارة 
عن برنامج يتم تنفيذه بواسطة خدمة معلومات الانترiٽ IIS . Internet Information Servers‏ 
اصدارات الوندوز القديمة لاتعمل مع 115 مثل (95,98, 3.11) لاتعمل مع ال مئه لاكن من وندوز 200 
وحتی وندوز 7 
کلھا تعمل مع ال ۸8۶۲ 
ولتنفذ برامج ال ۸8۴ نحتاج إلي 118 وهو عبارة عن مترجم او مفسر لأوامر لغة ۸8۲ و أمذا؟ حيث 
له العديد من الاصدارات وفق نظام التشغيل هو وندوز 200 وجاء حزمة خارجية في نظام تشغيل سميت بال 
Option back‏ هنالك اصدارات في انظمة التشغيل السابقة من عائلة 0wsلdمW‏ سميت ب )٥WS(‏ 
Personal Web Servers‏ 


التكاملية والاعتمادية فی ال ۸8۶۲ 
1. عند الاحتیاج لاستخدام 118 یجب استخدام اصدارات ال Windows‏ من !لاصدlر windows NT‏ 
او باکاد نى 000 
2. عند الاحتياج لاستخدام W8‏ يجب استخدام وسملمزس أو ماجاء بعد هذة الاصدارة . 
3 عند الاحتياج لاستخدام تطبيقات ال ۸8۶ دون استخدام أنظمة تشغيل فعليك ب ۸8۶ C11‏ 
4. عند الاحتیاج لاستخدام تطبیقات ال ۸8۲ دون استخدام نظام تشغیل وندوز یجب استخدام ۸S۴‏ {stiہ1‏ 


ماهی ملغات ال ۸8 
1. هي مشابه لملفات ال اصا۴ 
2. يحتوي ملف ال asp‏ على نصوص ولغة (xml, Html,Script)‏ 
ملفات ال ۸8۴ یتم تنفیذھا في ال Server‏ 


4 یحفظ ملف ال ۸8۲ بامتداد ۸8۶۲. 


آوجه الاختلاف بین ال ۸S۲‏ وال 1دىHt‏ 
آ2 في حالة طلب ملف بواسطة لغة ال 1 يقوم الخادم امامو بارجاع الملف ومحتوياته الي واجهة 
الطلب . 
2 في حالة طلب ملف بواسطة لغة ال ASP‏ 2 معالج ال IIS JI 2 ASP‏ تفر ير E‏ افع 
ETE ES AEE A EE E‏ 


ما یجب فعله باستخدام ال ۸8۶ 


. تفاعلياً يمكن تصميم صفحات بها تجرى عمليات الاضافة والحذف اوعرض اي محتويات الانترنت . 
. استجابة لستفسارات المستخدم لإسترجاع البيانات وارسال قيم بيانية من نماذج لغة ال . 1 

. الوصول لكافة قواعد البيانات واسترجاع هذة البيانات في مستعرض الصفحات . 

تخصيص صفحات المستخدمين من آجل الخصوصية للفرد. 

. في التطور وفقا لمنظور وجهة تنفيذ العمل بواسطة ال C61‏ او ۲1ء۲ اضافة السرعة والبساطة . 

. اوفرت السرية حيث ان هذة السرية المتمثلة في عدم امكانية عرض الشفرات البرمجية في مستعرض 


تتحسس اذدحام الشبكة من أجل تأمين هذا الاذدحام. 


script E EE‏ نسبياً لان جميع الا ٤ء‏ تنفذ على مستوی ال 
Server‏ . 
تحویل Server Û‏ 
كن تز يل الخاسب الفلف ي ملخبم برامطة اح لارام ر(اتاة: 
IIS .1‏ 
PWS .2‏ 
حيث يمكن بواسطة هذين البرنامجين يتم تحويل الحاسب الي مخدم كما توجد كل من هذة البرامج في وحدات 
1. برنامجچ 115 
عبارة عن مجمو عة الخدمات الاساسية المقدمة في الانترنت والتي تم تصنيعها من قبل شركة ماكروسوفت 
ويمكن استخدامها مع انظمة التشغيل وندوز 
توجد اصدارات 118 بتوافق مع عائلة وندوز متل (7,ھ)یئ200,)۴,۷1) کما استخدمت من قبل وندوز N1‏ 
وتعتبر هذة الأداة سهلة الاعداد والتطوير في تطبيقات الانترنت . 
2. برنامج ٥WS‏ 
يستخدم في التطبيقات والأنظمة السابقة مثل وندوز 1,95,98 "N‏ وهي سهلة الاعداد وتستخدم في تطبيقات 
محدودة وفقا لعوامل السرية في الشبكة . 


خطوات اعداد ال19[ فى انظمة تشغيل 7, هئ¡ 
1. تج control panel‏ 
2. lختlرڙر Add and Remove program‏ 


Turn Windows features on or off اختیار‎ .3 

4. اختار 118 واضغط علی 0K‏ 
في حالة اعداد 118 يمكن توفير كافة الوحدات المتعلقة بالعمل مثل أجراءات السرية وهذا قد يحتاج الي تعديل في 
نظام التشغيل. 


خطوات اعداد ال م امS‏ فى انظمة تشغيJ windows200 and windows xp‏ 
. من ائم Control Panel ڙlتخا start‏ 


add or remove programs ڙlتخا‎ .. 

Add/Remove Windows Components ڙlٿë!‎ . 

. اختیار 115 

De )ھن[s اختار‎ . 

ok pî wide web service Jİ اشر‎ . 

. !ختj Next and install [IS‏ 
ملحوظة 
قبل البدء في اعداد ال؟11 لنظامي ۴,200 > يجب وضع اسطوانة نظام التشغيل في محرك الاقراص. 
ولتؤکد من وجود 118 في في وندوز ۲× و200 
من لوحة التحکم نختار وا00 Administrative‏ سوف یظھر لك 115 والا فلن یتم إعداد الخادم 
ختبار صفحات ۸S۲‏ 

1. في المرحلة الاعدادية يتم انشاء مجلد داخل القرص الصلب الاساسي بأسم اام 4ط1 . 

2. في داخل هذا المجلد يوحد ملف اخر باصم wwW OO‏ 


3 یمکن انشاء مجلد داخل المجلد المسمی بأسم ال ww ٥٥٤‏ س بإسم مثلاً امس رص ویحفظ ملف لغة ۸8۶۲ 
داخل هذا المجلد بامتداد 8۶ ۸. 

4. فتح المستعرض الصفحات وكتابة الاتي . 

Localhost/myweb/program name.asp 


write output (o a b10 Wser عرض محتو يات ۸5۲ في مستعرض‎ 

ملف ال ۸6۶۲ هو عبارة عن ملف ۲1۷1 الا ان هذا الملف يحتوى على الاسكربت والذي يتم تنفيذه قي ال 
6 حیث یتم کتابة عبارات ۸8۴ باحد لغات الاسکربت Visual Basic Script and java ) Jû‏ 
script)‏ 

یتم کتابتها داخل ملف ال ۸8۲ بين علامتي . 


%< 
>% 
اما عبارة ءازا 0nse.WمءءR‏ وهي تستخدم لعرض الجمل في لغة ال ۸6۶ كما في البرنامج التالي : 


response.write(" Hello World!") 
> 

</body> 

</html> 


كما توجد عبارة اخرى مشابه لها لعرض النصوص فقط وذلك بأسباق العبارة النصية بعلامة = ووضع النص 
<%'"hello world"'%>‏ 


استخدام ال Basic Script‏ اVisua‏ فی صفحات ASP‏ 
في الوضع الافتراضي تعتبر جمیع ملفات ال ۸5۴ اسکربت بواسطة cزیھ8‏ 1ھuی¡۷‏ 


Script‏ کماتم عرضهھا سابقا. 


استخدام ال Spt‏ yaھل‏ فی صفحات ۸8S۲‏ 
2 حالة استخدام لغة Script‏ 2هل يجب الاعلان عن هذة اللغة چ البداية بالصورة 
التالية : 

<%@language="java script" %> 


ه هنالك تلاثة لغات اخرى تعمل في شكل ام1إscڪهي perl,Rexx,python‏ 


۸8٥ خطوات تنفیذ ملفات ال‎ 
الطريقة المباشرة‎ .1 
localhost/file name.asp lS e 
الطريقة الثانية‎ .2 
Control penal e 
Administrative e 


IIS e 
Default e 
Virtual Directray e 
الدليل الافتراضى هو الوحدة التي يتم انشأه بواسطة ال11 وتوضع فيه ملفات ۸8۲ من اجل عملية التنفيذ‎ 
كيفية انشاء الدليل الافتراضى‎ 
Default .1 
web side . 
New الضغط بالزرالايمن واختيار‎ . 
اختيار اسم الدليل والموضع الذي يوضع فيه البيانات ثم اكمال خطوات الدليل الافتراضي‎ . 
اختيار الدليل الذي تم أنشاه.‎ . 
. B٥ ۷W الضغط بالزر الایمن واختیار مء‎ . 


Variables ٽارıغتnئا‎ 


1. الاعلان عن المتغيرات 
تستخدام المتغيرات في تخزين المعلومات .وهذا المتال يوضح كيفية الاعلان عن المتغيرات وتخصص 
لها قيمة واستخدام القيمة في نص. 


<html> 
<body> 


<% 

dim name 

name="Donald Duck" 
response.write("My name is: " & name) 
%> 


</body> 
</html> 


Output 
My name is: Donald Duck 


2. الاعلان عن مصفوفة 
تستخدم في تخزين سلسلة من البيانات المتجانسة او ذات علاقة .وهذا المتال يوضح كيفية الاعلان عن 
مصفوفة التي تخزن فيها أسماء . 


<html> 
<body> 


<% 
Dim famname(5),i 
famname(0) = "Jan Egil" 
famname(1) = "Tove" 
famname(2) = "Hege" 
famname(3) = "Stale" 
famname(4) = "Kai Jim" 
famname(5) = "Borge" 
Fori = O to 5 
response.write(famname(i) & "<br />") 


Next 

0> 
</body> 
</html> 


Output 


Jan Egil 
Tove 
Hege 
Stale 
Kai Jim 
Borge 
1M حلقة تكرارية لاظهار العناوین السته فى‎ .3 


<html> 
<body> 
< % 
dim i 
for i=1 to 6 
response.write("<h" &i & ">Heading " &i & "</h" &i & ">" 
next 
%> 
</body> 
</html> 


Output 


Heading 1 


Heading 2 
Heading 3 


Heading 4 
Heading 5 


Heading6 


Visual Basic Script اظھار الوقت باستخدIم غة‎ .4 
قت الخاد‎ E EAE OR DE DE TIE 
ت م ق م‎ 


<html> 
<body> 

< % 

dim f 
h=hour(now()) 


response.write("<p>" & noW()) 
response.write("</p>") 
If h<12 then 
response.write("Good Morning!") 
else 
response.write("Good day!") 
end if 
%> 
</body> 
</html> 


output 


12/18/2011 4:45:53 AM 


Good Morning! 


زھva‎ ءاذم٤ اظهار الوقت باستخدام‎ .5 
. هذا المثال هو نفس المثال السابق ولاكن يختلفان في الصيغة‎ 
<%@ language="javascript" %o> 
<html> 
<body> 
<% 
var d=new Date() 
var h=d.getHours() 
Response.Write("<p>”) 
Response.Write(d) 
Response.Write("</p>") 
if (h<12) 
Response.Write("Good Morning!") 


E 


‌ 


else 


{ 
Response.Write("Good day!") 


‌ 


0> 
</body> 
</html> 


output 


Sun Dec 18 04:53:31 EST 2011 


Good Morning 


Lifetime of Variables تIرıغتnll عمر‎ 


الاعلان عن اک الأجراء يمكن يمكن الوصول اليه والتعديل فيه باي script‏ ی ملف ۲ ۸8. الاعلان عن 
متغير داخل الاجراء سے ویهدم کل مره ة الأجراء المنفذ. لايسمح لا seript‏ کاچ الأجراء الوصول أو 
التعديل في المتغير.الاعلان عن المتغيرات للوصول إلي ملف ۸8۴ أواكثر من ملف أن تعلن بأنها متغيرات 
جلسة عمل arabe‏ ہsi0یSe‏ أو متغیر ات تآزطبيJ‏ b]eۆvaria Application‏ 

متغيرات llجأة Session variable‏ 
EI TOA PEATE IE GER AE ROE AFF‏ 
وعادة المعلومات المخزونة في متغيرات الجلسة هي الأسم , والهوية ,والأفضليات. 


متغيرات التطبيj Application variable‏ 
RET NR a‏ الصفحات في تطبيق واحد. ومتغيرات التطبيق تستخدم لتخزين 
معلومات حول كافة المستخدمين في تطبيق محدد. 


Procedures ٽIءlرجالا‎ 


هو عبارة عن وحدة وظيفية يتم فيها عدد من الخطوات يتم مناداتها لاحقاً. يتم انشاء الاجراءات في لغة ۸8۶۴ 

بطرقتين : 

1. wlyتخدlم Visual Basic Script‏ 
يبدأ الاجراء في لغة أمiء؟S‏ 1وج8 1هuء۷‏ بالكلمة المحجوزة طاء وينتهي بالكلمة ناء لمم كما يتم 
إضافة اسح الاجراء ويتم تمثيل المتغيرات في داخل جسم الاجراء والقواعد اللاذمة لعرض وحدات 
الاجراءات كما في المثال التالي : 


<html> 

<head> 

<% 

sub vbproc(num1,num2) 
response.write(num1 *num2) 
end sub 

> 

</head> 

<body> 


<p>Result: <%ocall vbproc(3,4)%></p> 


</body> 
</html> 
في المتال علاه تم الاعلان الاجراء باسم عمط وفي داخله تم الاعلان عن متغيرين وتمت طباعة ناتج‎ 
. هاتين المتغيرين‎ 
call procedures ءlرجڄالا مناداة‎ 
: يتم مناداة الاجراء بأسم الاجراء والمتغيرات الداخلة في تركيبه بعد الكلمة المحجوزة [[ه كما في الاتي‎ 


<p>Result: <%ocall vbproc(3,4)%></p> 


Java Script ماIدختسأب‎ .2 
OEY AACE SSE E ALE ETERS 


<%@ language=" javascript" %> 


یتم ابتداءِ جسم الاجراء بالكلمة المحجرزة و10)عوfu‏ وإسم الاجراء والمتغيرات د داخله یتم مناداة الاجراء 
بأسم الاجراء والمتغيرات الاذم تمريرها له . كما في الاتي . 


<html> 

<head> 

<% 

function jsproc(num!1,num2) 

{ 

Response. Write(num1l*num2) 
} 

> 

</head> 

<body> 


<p>Result: <%jsproc(3,4)%></p> 


</body> 
</html> 


في حالة مناداة اجراء مكتوباً بلغة امذإه؟ وج8 اaسuو۷1‏ توجد كلمة محجوزة [[2ع ويجب وضع القيم التي 
يراد تمرير ها في اقواس مثل (3,4)١٥١إمط۷‏ 11ء ويمكن عدم استخدام الكلمة المحجوزة وبذلك تكون القيم 
الممررة قيم اختبارية في اقواس أو دون ذلك. 

أما في حالة مناداة الاجراء مكتوباً بلغة مإ هره[ يجب إضافة اقواس للقيم التي يراد تمريرها . 

في حالة مناداة اجراء مكتوباً بلغة Visual Basic Scrip)‏ أو Java Scrip{‏ وکانت لاتوجد قیم یراد تمریرھا 
يمكن كتابة الاقواس أو عدم کتابتها. 


Forms النماذج‎ 


ن تستخدم لغة ۸S۲‏ دالتین هما : 
Request. Query String .1‏ 


<html> 

<body> 

<form action="demo_reqquery.asp" method="get"> 

Your name: <input type="text" name="fname" size="20" /> 

<input type="submit" value="Submit" /> 

</form> 

<% 

dim fname 

fname= Request.QueryString("fname") 

If fname<>"" Then 
Response.Write("Hello " & fname & "!<br />") 
Response.Write("How are you today?") 

End If 

%> 

</body> 

</html> 


EL EE A OEE DEE GE 
. لاستخدام قیمتها ف عملیات بر مجيه بإستخدام 9 الارسال‎ Name 

تم الاعلان عن الامإء؟ وتم استخدام عبارة gہS)]1 Request. Query‏ لارسال محتوی الصندوق 
النصي وذلك باستخدام قيمة المتغير الخاصة عه" في النموذج. 


IE 


Request. Form .‏ 
كيفية ارسال القيم البيانية مستخدمين في ذلك الاومم وذلك من خلال المثال التالي وهو نفس المثال السابق 


ولاكن في هذ المرة نستخدم Request. Form‏ 


<html> 

<body> 

<form action="demo_simpleform.asp" method="post"> 

Your name: <input type="text" name="fname" size="20" /> 

<input type="submit" value="Submit" /> 

</form> 

<% 

dim fname 

fname=Request.Form("fname") 

If fname<>"" Then 
Response.Write("Hello " & fname & "!<br />") 
Response.Write("How are you today?") 

End If 

%> 

</body> 

</html> 


في هذا المثال تم الاعلان عن متغير تتم طباعة قيمته كما تم اختبار القيمة المختارة وفقا لعملية الاختيار 
"ءاعو" حيث يتم ارسال القيمة المختارة وطباعتها كما في البرنامج . 


<html> 

< % 

dim cars 

cars= Request.Form("cars") 

0> 

<body> 

<form action="demo_radiob.asp" method="post"> 
<p>Please select your favorite car:</p> 


<input type="radio" name="cars" 

<%if cars="Volvo" then Response.Write("checked")% > 
value="Volvo">Volvo</input> 

<br /> 

<input type="radio" name="cars”" 

<%if cars="Saab" then Response.Write("checked")%o> 


FE 


value="Saab">Saab</input> 
<br /> 
<input type="radio" name="cars”" 
<%if cars="BMW" then Response.Write("checked")%o> 
value ="BMW"> BMW </input> 
<br /><br /> 
<input type="submit" value="Submit" /> 
</form> 
< % 
if cars<>"" then 
Response.Write("<p>Your favorite car is: " & cars & "</p>") 
end if 
%> 
</body> 
</html> 


Cookie 


ماهو الع0kiمعء‏ 


غالباً ما تستخدم العز)ممء لتحديد هوية المستخدم .ال عز)ممم‌هو ملف صغیر يتضمنه ال 1٥‏ ۷إموعلی جهاز 


الكمبيوتر الخاص بالمستخدم .في كل مرة نفس الكمبيوتريطلب صفحة مع مستعرض » ليتم إرسال ملف تعريف 
الارتباط مع ملف ال٥‏ ۸8 ايضا, یمكنك علی حد سواء إنشاء واسترجاع قيم اcookieÛ CookieÛ! jl".‏ 
کف تعر یت ار 


كيفية إنشاء ملفع )مه٣‏ 
يستخدم هذا الامر لانشاء ملف ال ممه اوتعرية lلارتبlط"Response.Cookies"‏ 
ملاحظة : الأمر sعن00k).ع٬ Resp‏ يجب أن تظهر قبله وسم .<>H†ML<‏ 
في المثال أدناه > سوف تقوم بإنشاء ارتباط يسمى "اء " وتعيين القيمة "×۸1 "له : 
%< 
Response.Cookies("firstname")="Alex"‏ 


o> 


ومن الممكن تعين خصائص للارتباط مثل تحديد الوقت والمكان وعندما ينتهي تنتهي ال ع0giهء‏ 


<% 

Response.Cookies("firstname")=" Alex" 
Response.Cookies("firstname").Expires=#May 10,2012# 
> 


كيفية ارجاع قيمة الءز0kممع‏ 
يتم استخدام الامر التالي لاسترجاع قيمة العi)مهء‏ 
"Request.Cookies"‏ 


ت المتال أدناهء فإاننا نسترجع قيمة ال ءز0 هءالمسماة " عمصه,اوإاf‏ " » وعرضه على الصفحة: 
%< 
fname=Request.Cookies("firstname")‏ 
response.write("Firstname=" & fname)‏ 


o> 


Output: 
Firstname=Alex 


ال sمkiممء‏ مع المفاتيح: 


إذا كان العز)ممء يحتوي على مجموعة من القيم المتعددةءفعندها نقول أن الارتباطات أو الوعذ)ممء تمتاك 
مفاتیح. 


المثال أدناه »> سوف نقوم بإنشاء مجمو عة من العi)ممء‏ المسماة "إعوں " و العا)ممء يمتلك مفاتیح 
تحتو ی على معلومات حول مستخدم أو "user"‏ : 


<% 
Response.Cookies("user")("firstname")="John" 
Response.Cookies("user")("lastname")="Smith" 
Response.Cookies("user")("country")="Norway" 
Response.Cookies("user")("age")="25" 

> 


قراءة جمیع المi)ممء‏ 
اط عن ا ا ا 


<% 

Response.Cookies("firstname")=" Alex" 

Response.Cookies("user")("firstname")="John" 

Response.Cookies("user")("lastname")="Smith" 

Response.Cookies("user")("country")="Norway" 

Response.Cookies("user")("age")="25" 

> 

نفترض أن الخادم ارسل كافة ملفات تعربی الارتباط (Cookies)‏ أعلاه للمستخدم.الآن دز أن نقراً جمیع الملفات 

المرسلة إلى المستخدم .المثال التالي يوضح كيفية القيام بذلك :لاحظ أن رمز أدناه يتحقق من وجود مفاتیح ارتباط 
مع الخاصة HasKeys‏ 


<html> 

<body> 
<% 
dim x,y 
for each x in Request.Cookies 

response.write("<p>") 

if Request.Cookies(x).HasKeys then 

for each y in Request.Cookies(x) 

response.write(x & ":" & y & "=" & Request.Cookies(x)(y)) 
response.write("<br />") 

next 

else 

Response.Write(x & "=" & Request.Cookies(x) & "<br />") 

end if 

response.write "</p>' 
next 

> 


١ 


</body> 
</html> 


Output: 


firstname=Alex 


user:firstname=John 
user:lastname=Smith 


user:country=Norway 
user:age=25 


ملاحظة : 

عند كتابة هذا الكود سوف يقوم بطباعة جميع ال وعز)ممء الموجودة على جهازك الخاص بك سواء كانت لها مفاتيح 
أوليس لها مفاتيح أي لوکنت انت مسجل في أي موقع وکان يتبع نظام ال oisەعc‏ سوف تظھر جمیع ملفات 
الوعi)ەمء‏ التي لديك . 


ماذا لو أن المتصفح لا يدعم العi)ممء؟‏ 
إذا كان التطبيق الخاص بك مع مستعر ض المتصفحات لا تدعم ملفات تعريف الارتباط أو الع1)ەoمc»›»‏ سوف 
تضطر إلى استخدام أساليب أخرى لتمرير المعلومات من صفحة إلى آخرى في التطبيق الخاص بك. هناك 


1. إضافة معاملات إلى ۸1ا 


يمكنك إضافة معاملات إلى 0R‏ كمايلي: 
<a href="welcome.asp?fname=John&Iname=Smith">Go to Welcome Page</a>‏ 


واستر داد القيم في ملف "مءھ.٥٥٥ء[ع‏ س" متل هذا: 


<% 

fname=Request.querystring("fname") 
Iname=Request.querystring("Iname") 
response.write("<p>Hello " & fname & " " & Iname & "!</p>") 
response.write("<p>Welcome to my Web site!</p>") 

> 


2. استخدام نموذج ہ١٥۴‏ ھ Use‏ 


يمكنك استخذام النموذج .النموذج يمرر إذخال المستخدم إلى "مءه.ع”هء[مس" عندما ينقر المستخدم على 
زر إرسال: 
<form method="post" action="welcome.asp">‏ 
First Name: <input type="text" name="fname" value="" />‏ 
Last Name: <input type="text" name="Iname" value="" />‏ 
<input type="submit" value="Submit" />‏ 
</form>‏ 


٠‏ استرداد القيم في ملف "pءه.ع٣٥ء1ع‏ س" مثل هذا: 


<% 

fname=Request.form("fname") 

Iname=Request.form("Iname") 

response.write("<p>Hello " & fname & " " & Iname & "!</p>") 


E 


response.write("<p>Welcome to my Web site!</p>") 
> 


The Session object jill Îسلج‎ 


ان كائن الجلسة يستخدم لتخزين البيانات , أو تغيير الإعدادات لجلسلة المستخدم (أي عندما يكون المستخدم داخل 
الي الموقع ). إن المتغييرات المخزونة داخل كائن الجلسة تحمل البيانات إلي مستخدم واحد وهي متوفرة لكل 
الصفحات في تطبيق واحد . 

توضیح اکثر: 

عندما كنت تتعامل مع أي تطبيق على جهاز الكمبيوتر الخاص بك › وقمت بفتحته» وأجريت بعض التغييرات › ثم 
تقوم باغلاقه. هذا يشبه تماما الجلسة . الكمبيوتر يعرف من أنت. يعرف عند فتح التطبيق وعند إغلاقه. ولکن علی 
شبكة الانترنت هنالك مشكلة واحدة :وهي أن خادم الویب لا یعرف من أنت وماذا تفعل» لأن عنوان H۲۲۶‏ 
لايحفظ الحالة. 

8۶ حل هذه المشكلة عن طريق إنشاء ارتباط فرید لکل مستخدم. یتم إرسال العkiمهء‏ إلى جهاز المستخدم 
وآنه يحتوي على المعلومات التي تصف المستخدم. وهذا ما يسمى واجهة الكائن ععزطه ١10وومS.‏ 

جلسة الكائن تخزن معلومات عن المستخدم» أو تغيير الإعدادات لجلسة عمل مستخدم. 

المتغيرات المخزنة في كائن جلسة تحمل معلومات حول مستخدم واحد »› ومتاحة لجميع الصفحات في تطبيق 
واحد. المعلومات العمومية المخزنة قي متغيرات الجلسة هي الاسم والهوية› والأفضليات. ینشئ ال۲٥‏ ۷٥۽‏ عمل 
جلسة كائن جديدة لكل مستخدم جديد » ويدمر جلسة الكائن †ءعزطه «٥10ووم؟‏ عند انتهاء الجلسة (إنتهاء 


متى بدأ الجلسة؟ 
تبداً الجلسة عندماء 
أي مستخدم جديد يطلب ملف ال ۸8۴ » و الملف هيه.1هطه6[1يتضمن إجراء 
Session_OnStart‏ 
يتم تخزين القيمة في متغير الجلسة. 
ويطلب المستخدم ملف ۸8۲ ٠‏ والملف هیھ. ھاہ1 یستخدم وسم [٤٣1<‏ 08>إلی مثیل الکائن 
مع نطاق جلسة. 


متى تنتهى الجلسة؟ 
تنتهي الجلسة إذا كان المستخدم لم يطلب أو يحديث صفحة في التطبيق لفترة محددة. افتراضيا » هو 20 دقيقة. 


إذا كنت ترغب في تعيين فاصل زمني مهلة أن كانت أقصر أو أطول من الفترة الافتراضيةء وتستخدام خاصية 
مهلة. 


المثال التالي يحدد مهلة الفاصل الزمني قدره 5 دقائق : 
%< 

Session. Timeout=5 
> 


استخدام الأسلوب التخلي عن لانهاء الجلسة على الفور: 

<% 

Session.Abandon 

> 
ملاحظة : إن المشكلة الرئيسية بالنسبة للجلسات هي متى يجب أن تنتهي ,فإنك لاتعرف متى يكون أخر طلب 
للمستخدم هل هو الطلب الاخير أم لا ؟ ولذلك لانعرف متى نجعل الجلسة مفتوحة .فإن الانتظار لفترة طويلة 
تستهلك موارد السيرفر.ولكن اذا تم مسح الجلسة بسرعة كبيرة فإنك سوف تخاطرفي حالة ما إذا عاد المستخدم 
وكان السيرفر قد قام بمسح كل البيانات ,وعندها سوف يطر المستخدم إلي البدء من جديد . إن إيجاد زمن إنتهاء 
الجلسة يمكن أن يكون صعباً. 


تلميح : إذا كنت تستخدم متغيرات الجلسة ,فمن الافضل أن تخزن بها كميات صغيرة من البيانات ! 
تخزين واسترجاع متغيرات الجلسة 
أهم شيء بالنسبة لجلسة الكائن هو أنه يمكنك تخزين المتغيرات في فيها. 


والمتال التالي تعيين اسم متغير الجلسة " kعDu‏ ك1همه5 " وعمر متغير الجلسة إلى: "50" 


<% 

Session("username")="Donald Duck" 
Session("age")=50 

> 


عندما يتم تخزين القيمة في متغير جلسة عمل يتم التوصل إليها من أي صفحة في تطبیق: ۸8۶۲ 


Welcome <%Response. Write(Session("username"))%> 


يمكنك أيضا تخزين تفضيلات المستخدم في كائن الجلسة » ومن ثم وصول ذلك التفضيل لاختار ما الصفحة 
للعودة إلى المستخدم. 


المثال التالي يحدد ذ نسخة نص فقط من الصفحة إذا كان ١‏ لمستخدم لديه دقة الشاشة منخفضة ٠:‏ 


<%If Session('screenres")="low" Then%> 
This is the text version of the page 
<%ElIse%> 
This is the multimedia version of the page 
<%REnd If%> 


إزالة متغيرات الجلسة 

جمع المحتويات على كافة متغيرات الجلسة. 

فمن الممكن إزالة متغير الجلسة مع استحدام أسلوب ازالة. 

المثال أدناه يزيل جلسة المتغير "ع [هء " إذا كانت قيمة "age"‏ جلسة المتغير هو أقل من 18 : 


<% 

If Session.Contents("age")<18 then 
Session.Contents.Remove(""sale") 

End If 

> 


ه لإزالة كافة المتغيرات في جلسة عمل » استخدم الأسلوب]۸1 R٠۷٥‏ 


%< 
Session.Contents.RemoveAll)‏ 
> 
التنقل فى المحتويات: 
التنقل في المحتويات هو التنقل في كافة ١‏ لمتغيرات الجلسة› لنری ما تم تخزینه فيه کالاتي: 


<% 
Session("username")="Donald Duck" 
Session("age")=50 


dim i 

For Each 1 in Session.Contents 
Response.Write(i & "<br />") 

Next 

%> 


Result: 


username 
age 


اذا كنت لا تعرف عدد من البنود في جمع المحتويات » يمكنك استخدام الخاصية: Count‏ 


<% 
dim i 
dim j 
Jj=Session.Contents. Count 
Response. Write("Session variables: " & j) 
For i=1 to j 
Response. Write(Session.Contents(i) & "<br />") 
Next 
> 


Result: 


Session variables: 2 
Donald Duck 
50 


التنقل عن طريق ء٤ءءزSta)1c0b‏ 
يمكنك من خلال ءاءعزطا0ء1اه]S»‏ معرفة قيم كل الكائنات المخزنة في الكائن الر0إووم؟ 


<% 

dim i 

For Each i in Session.StaticObjects 
Response.Write & "<br />") 

Next 

> 


Application قJيبطتلا‎ 


هو مجمو عة من الصفحات ال ۸8۴ تعمل معاً لأنجاز عمل محدد. 

Applications Oۆb‎ jects كائنات التطبيقات‎ 

التطبيقات في صفحات الاس هي مجمو عة ملفات ال ۸5۴ التي تكون متوافقة لعمل معين لانجاز مهمة 
محددة تستخدم كائنات التطبيق لربط مجموعة هذة الملفات معا ,تستخدم كائنات التطبيق لحفظ المتغيرات 
وتمكن من الوصول اليها من أي صفحة . وهي شبيهة بكائنات الجلسة الاان الاختلاف الوحيد هوان في 
كائنات التطبيقات كل المستخدمين يشتركون في تطبيق واحد ولاكن مع الجلسة تكون هناك جلسة تطبيق 
واحدة لكل مستخدم . تكون في كائنات تطبيقات المعلومات التي تستخدم لمجموعة من الصفحات .مثل تطبيق 
قواعد البيانات والاتصال بها .ويكون الوصول لهذة المعلومات من كافة الصفحات وبمكن تغير هذة 
المعلومات من جهه واحدة ويؤثر التغير في تعديل بقية الصفحات التي توافرت لها هذة المعلومات . 


حفظ واسترجاع متغيرات التطبيقات : 
باستخدام Globel.asa‏ 


<script language=" vbscript" runat="server"> 


Sub Application_OnStart 
application("vartime")="" 
application("users")=1 
End Sub 


</script> 


۾ في المتال أعلاه قمنا بانشاء متغيرات التطبيق هما "ع 10ا "va‏ : و "میں "' 
يمكنك الوصول إلى قيمة متغير تطبيق كما يلي: 
%< 
Response. Write(Application("users"))‏ 
> 
active connections.‏ 


التنقل فى المحتويات 
المحتويات هى كافة متغيرات التطبيقات ويمكن التنقل فيها كالاتى : 
%< 
dim i‏ 
For Each i in Application.Contents‏ 
Response.Write & "<br />")‏ 
Next‏ 
> 


اذا كنت لا تعرف عدد من البنود في جمع المحتويات » يمكنك استخدام الخاصية: أ" uاهC‏ 

<% 
dim i 
dim j 
j=Application.Contents.Count 
For 1=1 to j 

Response. Write(Application.Contents(D) & "<br />") 
Next 
> 


التنقل فى المحتويات الثابتة sاءءزطStat1c0‏ 
ن لفن د 60 اقا رة کک که اک تمل اک کا رای 


DIE 


<% 

dim i 

For Each i in Application.StaticObjects 
Response.Write(i & "<br />") 

Next 

> 


الحجز وفك الحجز)عمامu‏ & 1Ioc)‏ 
E Ck E E a‏ ا 
للمستخدم لتغير متغيرات هذة التطبيقات والمستخدمين الذين يعملون بهذة الطبيقات في نفس الحظة 
الحجزيمكنهم فك الحجز بالطريقة )ءامن والتي بدورها تقوم بارجاع متغيرات التطبيق . 
%< 
Application.Lock‏ 
'do some application object operations‏ 
Application. Unlock‏ 
> 


The #include Directive 44جgمall التضمين‎ 


هي عملية تضمين ملف ۸5۲ في ملف اخر قبل التنفيذ من قبل الخادم تستخدم في هذة الحالة ملc[uم#1‏ 
directive.‏ 

وتستخدم الع rhe #inc1ude Direc)1v‏ في أنشاء كل من التي functions, headers, footers, Or‏ 
e6صeاء‏ في مجمو عة من الصفحات 


الصيغة لتضمين لئأفFiles Syntax for Including‏ 
تک ی الو دة اتی : 
<!--#include virtual="somefilename"-->‏ 
Em file ="somefilename"-->‏ 
حيث يتم الاعلان عن وحدة الاسناد بذلك الطرقتين : 
The Virtual Keyword .1‏ 
تستخدم عندما يكون هنالك دليل إفتراضي وتستخدم لعنونة مسار هذا الدليل مثل: 


<!-- #include virtual ="/html/header.inc" --> 


The File Keyword .2 


يستخدم في هذة الحالة المسار الحقيقي الثابت للملف المراد تضمينه ويكتب فيها كافة وحدات هذا المسار 


<!-- #include file ="headers\header.inc" --> 


يعمل لاأن ۸8۲ ينفذ ال عل ناء م#1 التوجيهيه قبل أن يعين القيمة للمتغير. 


<% 

fname="header.inc" 

> 

<!--#include file="<%fname%>"--> 


ه لا يمكنك فتح أو إغلاق محدد في ملف نصي N٣٥.‏ قد لا يعمل البرنامج النصي التالي: 


<% 
Fori =1 Ton 
<!--#include file="count.inc"--> 
Next 
> 


ولاكن هذ البرنامج سوف يعمل : 


<% Fori =1 ton %> 
<!--#include file="count.inc" --> 
<% Next %> 


Global.asa file 


هي عبارة عن ملف يحتوى على تعريف الكائنات ,المتغيرات والطرق التي يمكن الوصول اليها بواسطة 
الصفحات حيت ان كافة مستعرضات الصفحات من الناحية البرمجية يمكن ان تعنون ملف اهطه]اع على سبيل 
المتال 

JavaScript, VBScript, JScript, PerlScript, ete. 


محتويات الملف هيه.[اوbطهاG‏ 
TTT OH‏ 
2. احداٿث الجلسات 

3 تعريف انواع المكتبات 


4. مرجعات العملية التضمنية 
يتم تخزين هذا الملف في الدليل الاساسي لتطبيقات لغة ال موه وكل واحدة من هذة التطبيقا ت تحتوي على ملف 
ال global‏ 


Event in global الاحداث فی ملف‎ 


الاحداث فى ملف 
من هذة الاحداث يقوم ملف هءه.1هطم1ع باخبار الحاسب عند البدء مع التطبيق او الجلسة 
توضع الوحدات البرمحية لمحتويات هذا الملف وقفا للاحداث في عامل الاحداث 
حيث يحتوى ملف ه5ه.21طه[ع على اربع أنواع من الاحداث 
Application _OnStart .1‏ 
نجد هذا الحدث عند بدء المستخدم مع صفحة ال م٤‏ ويحدتٿ عند مرحلة بدء العمل مع خادم ص٤ج‏ في مرحلة 
الاستعادة اهوم أو في مرحلة تحرير ملف الهءه.[هطه][ع . آما في حالة بدء الجلسة .٣إهاك‏ _"10وومء 
Session_OnStart .2‏ 
يحذث هذا الحدث في حالة استخدام طلب معلومات من صفحة اوكائن وهي اول صفحة في التطبيق. 
Session_OnEnd .3‏ 
يحدث هذا الحدث عند اي فترة زمنية قام المستخدم بأنهاء الجلسة حيث أن هذة الجلسة تنتهي إذاكانت صفحة 
التطبيق غير فعالة لفترة طويلة أي أن المستخدم لم يقوم بطلب المعلومات أو انقضاء الفترة الزمنية في الوضع 
الافتراضي وهي 20 دقيقة . 
r Application _ OnEnd .4‏ 
يحدث هذا الحدث عندما يكون أخر مستخدم لتطبيق قام بإنها الجلسة .وهذا مطابقاً تماماً عندما يكون خادم 
الانترنت قام بايقاف العمل حيث يحدث هذا الاجراء عمراً إذاكان هنالك اعداد لذلك في حالة ايقاف التطبيق متثل 
حذف السجلات اوكتابة معلومات E‏ ملف نصي حیث يصبح بعدها ملف global.asa‏ بالشکل لا 


<script language=" vbscript" runat="server"> 


sub Application_OnStart 
'some code 
end sub 


sub Application_OnEnd 
'some code 
end sub 


sub Session OnStart 
'some code 
end sub 


sub Session_OnEnd 
'some code 
end sub 


</script> 


د حالة استخدام ملف global.asa‏ لیس من الضروري استخدام محداد لغة الasp‏ وهي %< 
> 
حيث ان الاعلان عن لهذا الملف يوضع في ملف ۳1۷1 باعتباره اجراء روتيني . 


تعريف llكlئliٽ <object> Declarations‏ 
من المكن أنشاء كائنات للجلسات و التطبيقات في ملف هءه.1هطم[ع بأستخدام الوسم <اءعزطه> أنه يجب ان 
يكون الوسم خار ج ال ام ذءء كما في الصيغة التالية : 


<object runat="server" scope="scope" 1d="id" 
{progid="progID"lclassid="classID" }> 


</object> 


lئgصف Parameter تںږnlعaئا Description‏ 
تحديد المجال ماإذاكان لتطبيق أوجلسة Scope‏ 
تحديد قيمة فريدة لكل كائن ID‏ 
هي القيمة 15 للبرنامج الرابطة مع الفئة 5[ووواإء ProgID‏ 
ا 

[Vendor.]Component[. Version] 
classID تحديد قيمة فريدة من اجل الاتصال لهذا أي ما إذا كان‎ 
رقم البرنامج أو الفئة‎ 
Example 
<object runat="server" scope="session" id="MyAd" progid="MSWC.AdRotator"> 
</object> 


الاعلان عن الكائنات داخل ملف ال Slobal.asa‏ يمكن هذة الكائنات من التعامل كافة التطبيقات كما ت 
ا 
GLOBAL.ASA:‏ 


<object runat="server" scope="session" id="MyAd" progid="MSWC.AdRotator'"'> 
</object> 


You could reference the object "MyAd" from any page in the ASP application: 


SOME .ASP FILE: 


<%=MyAd.GetAdvertisement('/banners/adrot.txt")%> 


TypeLibrary Declarations ٽlبتكaئlا‎ عIون| تعریف‎ 


أنواع المكتبات هي اا تحتوى على الملفات ذات الانواع اا وهي الملفات ذات العلاقة بین کائنات 
الاتصال الحالي . وتم ذلك لتضمين [21ء آي عملية مناداة ف داخل ملف ووه a global.‏ یمکن 
الوصول لكائنات الاتصال التابتة وعند حدوث خطا يمكن تكراره إذا كان احد التطبيقات غير متضمن في 
كائنات الاتصال يجب ان يعرف داخل مكتبة الهءه.[هطه1ع بهذة الصيغة 


<!--METADATA TYPE="TypeLib" 
file="filename" uuid="id" version="number" lcid="localeid" 
--< 


lئgصأ Parameter ٽںږإnlعnلا Description‏ 
يخصص نوع مكتبي محدد في خاصية المسار File‏ 
وذلك في حالة رقم المستخدم أو متطلبات المستخدم 
يحدد رقم فريد لهذة المكتبة في حالة متطلبات Uuid‏ 
المستخدم اورقم المستخدم ل1 
اختبارية يتم اختیار النسخة أوالاإصدارة أما د Version‏ 
حالة عدم وجود هذة الإصدارة يتم التعامل معها 

مؤخراً 
اختبارية وهي الرقم المحلي للمكتبة Lcid‏ 


قيم الأخطاء 


Error Code Description 
ASP 0222 قيمة غير حقيقية لهذة المكتبة‎ 
ASP0233 عدم إيجاد الانواع المكتبية‎ 
ASPO0224 عدم تحميل الأنواع المكتبية‎ 
ASP0225 انوع المكتبي غير مطابق‎ 


القيود المفروضة على هذة الملف ورمناiإRest‏ 


القيود هي التي تحدد ماذا يتم إضافته في ملف هءه.21 ه61 . لايمكن عرض الوحدات النصية التي 
تضاف في هذا الملف وذلك لاأن هذا الملف لا يقوم بعرض المعلومات .يمكن فقط استخدام جلسات الخادم 
في حالة بدء التطبيق a)10۸_0,S)2۲۲ءiامم A۸‏ وفي حالة Ed‏ ication_OnاApp‏ في حالة نهاية 
الجلسة ¡| Session _0 E‏ یمکن استخدام تطبيقات الخادم وكائنات الجلسة E‏ حالة بدء الجلسة 


essi0n_ Stat‏ يمكن آستخدام أي اناء داخلي للكائن. 


How to use the Subroutines ةıراlركتاl كيفية استخدام الاجراءات الفرعية‎ 


يستخدم ملف الهءه.[هطه[ع لأنشاء المتغيرات . في المثال أدناه يتم عرض الزمن الذي يقوم فيه 
المستخدم بزيارة صفحة من صفحات ال ۸5S۲‏ حيت يتم تخزين الزمن في متغير من متغيرات الجلسة في 
حالة البدء وهذا المتغير يمكن الوصول أليه بواسطة كافة التطبيقات لهذة الصفحات : 


<script language="vbscript" runat="server"> 
sub Session_OnStart 
Session("started")=now() 
end sub 
</script> 


التحكم بواسطة الهءه.21طاه61 للوصول إلي الصفحات .في هذا المثال نستخدم الامر )عملم 8R‏ لتوجه 
الصفحة في حالة حدوث إحدى القيود. 


<script language=" vbscript" runat="server"> 
sub Session_OnStart 
Response.Redirect("newpage.asp") 
end sub 
</script> 


ارسال البريد الالكترونی‌mail-¢e Sending‏ 


ارسال البريد الالكترونى بأستخدام (S¥؟°0S٤0)‏ 

58 هي احد المكونات لغة ۸6۴ والتي يستفاد منها في عملية ارسال البريد الالكتروني . 
Collection Data Object‏ 

هي عبارة عن تقنية من شركة مايكروسفت والتي تم تصميمها لتبسيط عمليات إنشاء الرسالة في وحدات 
التطبيق لذلك . ونرى لاحقا كيفية استخدام هذة الاداء لإنشاء رسالة البريد . 


قامت شركة مايكروسفت بايقاف العمليات لهذة الاداء في كل من انظمة التشىغيل ,2000 Windows‏ 
Windows XP and Windows 2003.‏ اذا لزم الامر استخدام C5‏ أو N1٣‏ في تطبیقات لغة ۸8۲ 
يستلزام وجْوباً استبدال الشفرات الأذمة وفقاً للتقنية الجديدة C50‏ * 


استخدام تقنیة S۷5‏ 000 فی ارسال برید نصی [ذھ ۲١×٤ ٤٥‏ 


< % 

Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someoneQ@somedomain.com" 
myMail.TextBody="This is a message." 
myMail.Send 

set myMail=nothing 


في البرنامج السابق تم القيام بكل من: 


انشاء ارسال رسالة. 
عنوان الرسالة . 
عنوان المرسل اليه. 
تأكيد ار شال الرسالة. 
اغلاق البريد. 


C°C€ و‎ 8٥C) : المثال السابق باضافة الاتى‎ 
<% 
Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someoneQ@somedomain.com" 
myMail.Bcc="someoneelse@somedomain.com"”" 
myMail.Cc="someoneelse2@somedomain.com" 
myMail.TextBody="This is a message." 
myMail.Send 
set myMail=nothing 
%> 


B٣٣‏ : إضافة بريد لنفس البريد المرسله. 
٣ع‏ : ارجاع محتوى الرسالة إلي البريد الذي قام بإرسال الرسالة . 


Sending an HTML e-mail HTML برد‎ Jاسرا‎ 


< % 

Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someoneQ@somedomain.com" 
myMail.HTMLBody = "<h1>This is a message.</h1>" 
myMail.Send 

set myMail=nothing 

%> 


HTML e-nail الانترنت باستخدام‎ 


< % 

Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someoneQ@somedomain.com" 
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/" 
myMail.Send 

set myMail=nothing 

0%> 


ارسال صفحة ويب من جهاز الكمبيوتر الخاص بك باستخدام HTML e-mail‏ 


< % 

Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someone@somedomain.com" 
myMail.CreateMHTMLBody "file://c:/mydocuments/test. htm" 
myMail.Send 

set myMail=nothing 

%> 


ارسال نص البريد الإلكترونى مع المرفقات )ء٠ 4٨ ۸٤)41‏ 


< % 

Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someoneQ@somedomain.com" 
myMail.TextBody="This is a message." 
myMail.AddAttachment "c:\mydocuments\test.txt" 
myMail.Send 

set myMail=nothing 

%> 


ارسال نض البريد الإلكترونى باستخدا remote server hız‏ 


< % 

Set myMail=CreateObject("CDO.Message") 

myMail.Subject="Sending email with CDO" 
myMail.From="mymail@mydomain.com" 
myMail.To="someoneQ@Qsomedomain.com" 

myMail.TextBody="This is a message." 
myMail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 
'Name or IP of remote SMTP server 

myMail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server. 
com" 

‘Server port 

myMail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 
myMail.Configuration.Fields. Update 

myMail.Send 

set myMail=nothing 

%> 


Server Port منفذ لخادم‎ 


< % 
myMail.configuratio.fields.Item("http=//schemas.ms.com/cdo/congid/smtpser 
rerpost")=25 

myMail. configuratio.fields.update 

myMail.Send 

set myMail=nothing 

%> 


ASP ADO 


Accessing a Database from an ASP Page 
۸S۲ الوصول إلى قاعدة البیانات من صفحات ال‎ 


هي أداة أو طريقة التي بها يتم الوصول إلي قاعدة البيانات من صفحات الانترنت (۸8۲) 
الطرة الت اة اعطدة الل 
1 إنشاء ارتباط بين قاعدة البيانات وصفحة ال ۸8۲ بأستخدام أداة ۸50 . 
. فتح قاعدة lئبيlنlٽ Open the database connection‏ 
. إنشاء أداة الربط لقاعدة البیانات وهي "Create an ADO recordset" Recordset‏ 
. فتح الجدول باستخدم gl‏ ږڍط 4 Open the recordset‏ 
. إستخلاص البيانات من الجدول ائمعني Extract the data you need from the recordset‏ 
. Îعإڻق‏ رlبط‏ lئجدrecordsetJ Close the‏ 
. أغلاق الاتصال بقاعدة البيlنlٽ Close the connection‏ 


ADO is a Microsoft technology هي إحدى تقنيات شركة مایکروسوفٽ‎ 

ADO stands for ActiveX Data Objects J رiصتخا هي‎ 

هي احدی مکونات ۸8۲ بحیٹ یتم عدادها عند اعداد ال؟]1] 

وتعتبر واجهة تطبيقية للبرنامج للوصول إلي البيانات أو المعلومات في داخل قاعدة البيانات ۾ ی¡ ۸50 
programming interface to access data in a database‏ 


ما هي ال ۸50 
1. 
2 
3 
4. 


ADO Database Connectio0(¬ A۸D© J! اتصال قاعدة البيانات باستخدام‎ 
Create a DSN-less DatabasConnection plدختwİڊ‎ Jiصت|‎ ءشiî‎ 


هي عبارة عن أداة سهلة الاستخدام ويمكن بها ربط قاعدة بيانات في بر Microsoft Access database zali‏ 
بموقعك على الويب. 


فرضاً لو لدينا قاعدة بيانات باسم "طلد.. ل1س طاإمم" موجود في المسار "/هاةلطمس/:٠"‏ يمكن الوصول لها 
بالكود التالي. 


<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider=" Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 

> 


ونلاحظ انه لابد من تحديد مشغل لقاعدة البيانات )٥۸R0۷15٤8(‏ مع تحديد المسار الفعلي الذي توجد فيه قاعدة 
البيانات في جهاز الكمبيوتر 


كيفية إنشاء قاعدة بيانات ذات اتصاJ‏ تد Create an ODBC Database Connection‏ 


لأنشاء قاعدة بيانات يتم الوصول أليها بعدد من المستخدمين في آن اللحظة يجب كتابة الكود التالي: 


<% 

set conn=Server.CreateObject(" ADODB.Connection") 
conn.Open "northwind" 

> 


to an MS Access Database)(An ODBC Connection تliluئl انشاء )058 فى قاعدة‎ 


. Data Sources (0D8C) رlıتح|‎ pî Administrative Tools رlيتخlو فتح لوحة التحكم‎ . 
System DSN öأفlill اختيار‎ . 

. اختيار مشغل قاعدة البيانات )M18S(‏ والضغط على طیإمذ۴ . 

. اختيار )عم [مء لتحديد قاعدة البيانات . 

. إعطاء قاعدة البيانات إسم مصدري N١؟)‏ . 


6. ضغط علی ٥O)‏ . 


The ADO Connection Object ADO اتصال قاعدة البيانات بو اسط‎ 


يمكن من خلال ال ۸50 اتصال وفتح قاعدة البيانات وإغلاقها وكما يمكن بواسطته التعديل في قاعدة البيانات . 


Recordset)(Create an ADO Table .Recordset مlدختسlڊ‎ Jاصتا إنشاء‎ 


م لمعك ا ر ن ذا ف ا ل لاف د انات کی م ور فاع د 
كما يمكن الوصول إلي جدول العملاء "١إعمره]وں€"‏ عن طريق الكود التالي. 


<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider=" Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 


set rs=Server.CreateObject("ADODB.recordset") 
rs.Open "Customers", conn 
> 


إنشاء (ADO SQL Recordset) مlIدختwİڊ ADO‏ 
كما أيضاً يمكننا الوصول إلي جدول العملاء "١إ‏ موں ع" بأستخدام 8Q1‏ في الكود التالي. 


<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 

set rs=Server.CreateObject("ADODB.recordset") 
rs.Open "Select * from Customers", conn 

> 


Extract Data from the Recordset ) Recordset ج البيانات من الجدJg ب—‎ 


في نفس القاعدة السابقة يمكننا الوصول إلي جدول العملاء "١إ‏ مهو" بأستخدام الكود التالي . 


<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider=" Microsoft.Jet.OLEDB.4.0" 

conn.Open "c:/webdata/northwind.mdb" 


set rs=Server.CreateObject("ADODB.recordset") 
rs.Open "Select * from Customers", conn 


for each x in rs.fields 
response.write(x.name) 
response.write" = " 
response.write(x.value) 

next 

o> 


(ADO Display) ADOJI عرض‎ 


عرض بيانات جداول قاعدة البیانات فی جدول لغ 1M]‏ ]1ظ 


فيه يتم عرض الحقل و القيمة المقابلة له sمValu the Field Names and Field‏ ayاDisp‏ وذلك بالإعلان 
عن الجدول بعد عملية الاتصال والارتباط قاعدة البيانات . وبأخذ نفس قاعدة البيانات السابقة يكون الكود. 


<html> 

<body> 

<% 

set Conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb")) 
set rs = Server.CreateObject("ADODB.recordset") 
rs.Open "Select * from Customers", conn 

do until rs. EOF 

for each x in rs.Fields 

Response. Write(x.name) 

Response.Write(" = ") 

Response.Write(x.value & "<br />") 

next 

Response.Write("<br />") 


rs. MoveNext 
loop 
rs.close 

conn .close 
0> 
</body> 
</html> 


OUTPUT 


CustomerID = ALFKI 
CompanyName = Alfreds Futterkiste 
ContactName = Maria Anders 
Address = Obere Str. 57 

City = Berlin 

PostalCode = 12209 

Country = Germany 


CustomerID = BERGS 
CompanyName = Berglunds snabbköp 
ContactName = Christina Berglund 
Address = Berguvsvãgen 8 

City = Lulea 

PostalCode = S-958 22 

Country = Sweden 


CustomerID = CENTC 

CompanyName = Centro comercial Moctezuma 
ContactName = Francisco Chang 

Address = Sierras de Granada 9993 

City = México D.F. 

PostalCode = 05022 

Country = Mexico 


ولأظهار أسم الحقل وأسم القيمة فى جدول ال11 يكون الكود كالاتى: 


<html> 

<body> 

<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4:0" 
conn.Open(Server.Mappath("/db/northwind.mdb")) 
set rs = Server.CreateObject("ADODB.recordset") 
rs.Open "SELECT Companyname, Contactname FROM 
Customers", conn 

> 

<table border="1" width="100%o"> 

<%odo until rs. EOF%o> 

<İIr> 

<%for each x in rs.Fields%o> 

<td> < YoResponse.Write(x.value)Yo> </td> 
<%onext 

rs.MoveNext%o > 

</tr> 

<%loop 

rs.close 

conn.close 

0> 

</table> 

</body> 

</html> 


Maria Anders 

Christina Berglund 
Francisco Chang 
Roland Mendel 

[Diego Roel 

Eduardo Saavedra 
Helen Bennett 

Philip Cramer 

Yoshi Tanmnamuri 
Giovanni Rovelli 

Simon Crowther 

Marie Bertrand 

Paula Wilson 
(Jytte Petersen 

Liz Nxon 

Palle Ibsen 

Zbyszek Piestrzeniewicz 


إضافة عناوين لجدول ال11 فيصبح الكود كالاتى : 


AE 


OUTPUT 


Alfreds Futterkiste 
Berghmnds snabbköp 
Centro comercial Moctezuma 


Ernst Handel 


FISSA Fabrica Inter. Salchichas S.A. 


Galeria del gaströnomo 
Island Trading 

Kêöniglich Essen 

Laughing Bacchus Wine Cellars 
North'South 

Paris spécialitês 

Rattlesnake Canyon Grocery 
Simons bistro 

The Big Cheese 

Vaffeljernet 

Wolski Zajazd 


<html> 

<body> 

< % 

set conn =Server.CreateObject("'ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb")) 
set rs = Server.CreateObject("ADODB.recordset") 
sql=" SELECT Companyname, Contactname FROM 
Customers" 

rs.Open sql, conn 

0> 

<table border="1" width="100%"> 


<İIr> 
<%for each x in rs.Fields 
response.write("<th>" & x.name & "</th>") 


next%o> 

</tr> 

<%odo until rs. EOF%o> 

<Ir> 

<%ofor each x in rs.FieldsYo> 
<td> < VoResponse.Write(x.value)Yo></td> 
< Yonext 

rs. MoveNext%o > 

</tr> 

< %oloop 

rs.close 

conn.close 

> 

</table> 

</body> 

</html> 


OUTPUT 


Companuyname | Contactname 
Alfreds Futterkiste Maria Anders 

Berglhnds snabbköp Christina Berglund 

Centro comercial Moctezuma Francisco Chang 

[Ernst Handel [Roland Mendel 

FIS5SA Fabrica Inter. Salchichas S.A. Diego Roel 

Galeria del gastrénomo Eduardo Saavedra 


Island Trading Helen Bennett 

[Kêniglich Essen [Philip Cramer 

Nagazzii Amentai Rani ________ GovamiRovh 
North'South Simon Crowther 

Paris spécialités [Marie Bertrand 

Rattlesnake Canyon Grocery Paula Wilson 

Simons bistro Jytte Petersen 

The Big Cheese Liz Nixon 

[Vaffeljernet Palle Ibsen 


Wolski Zajazd Zbyszek Piestrzeniewicz 


ADO Queries 


Display Selected Data عرض بيانات محددة‎ 


1. نحن نرید فقط عرض سجلات جدول العملاء "١إعص‏ میں" والذين لديهم اسم الشركة 
'€ompanyname"‏ تبدا بحرف ال۸ . 


<html> 
<body> 


<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb")) 
set rs = Server.CreateObject("ADODB:recordset") 
sql="SELECT Companyname, Contactname FROM Customers WHERE 
CompanyName LIKE 'A%o'" 
rs.Open sql, conn 
%> 
<table border="1" width ="100%"> 
<İIr> 
<%for each. x in rs.Fields 

response.write("<th>" & x.name & "</th>") 
next%> 
</tr> 
<%odo until rs. EOF%o > 

<tr> 

<%foreach x in rs.Fields%o> 

<td> < %oResponse.Write(x.value)%o > </td> 

< %onext 

rs. MoveNext% > 

</tr> 
<%loop 
rs.close 
conn.close 
0%> 
</table> 


</body> 
</html> 


OUTPUT 


Companyname Contactname 


[Alfeds Futterkiste [Maria Anders 


2. نحن نرید عرض سجلات جدول العملاء "١إعص‏ ہیں" والذين لديهم اسم الشركة 


. یکون آکبرمن حرف ع۴‎ "C0mpanyname" 


<html> 
<body> 


< % 

set conn =Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb™")) 

set rs = Server.CreateObject("ADODB.recordset") 

sql="SELECT Companyname, Contactname FROM Customers WHERE 
CompanyName>'E'" 

rs.Open sql, conn 

%> 


<table border="1" width="100%"> 
<İr> 
<%ofor each x in rs.Fields 
response.write("<th>" & x.name & "</th>") 
next% > 
</tr> 
<%do’ until rs. EOF%o > 
<Ir> 
<%for each x in rs.Fields%o> 
<td> < YoResponse.Write(x.value)Vo> </td> 
<Yonext 
rs.MoveNext%o > 


</tr> 
<%loop 
rs.close 
conn.close 
0> 


Contactname 
Roland Mendel 
Diego Roel 
Eduardo Saavedra 
Helen Bennett 
Philip Cramer 
Yoshi Tannamuri 
Giovanni Rovelli 
Simon Crowther 
Marie Bertrand 
Paula Wilson 
Jytte Petersen 
Liz Nixon 
Palle Ibsen 


Zbyszek Piestrzeniewicz 


</table> 


</body> 
</html> 
Compauyname 
Ernst Handel 
FISSA Fabrica Inter. Salchichas S.A. 
Galeria del gastrênomo 
Island Trading 
Königlich Essen 
Laughing Bacchus Wine Cellars 
North' South 
Paris spécialitês 
Rattlesnake Canyon Grocery 
Simons bistro 
The Big Cheese 
Vaffeljernet 
Wolski Zajazd 


3. عرض عملاء اسبانيا :- كيفية عرض العملاء الذين ينتمون إلي دولة اسبانيا من جدول العملاء 
"Customers"‏ يکون الکود؟ 


<html> 
<body> 
<% 


set conn=Server.CreateObject("ADODB.Connection") 


conn.Provider="Microsoft.Jet.OLEDB.4.0" 


conn.Open(Server.Mappath("/db/northwind.mdb")) 
set rs = Server.CreateObject("ADODB.recordset") 
sql="SELECT Companyname,:Contactname FROM-:Customers WHERE 
Country='Spain'" 
rs.Open sql, conn 
0%> 
<table border="1" width ="100%"> 
<İIr> 
<%for each x in rs.Fields 
response.write("<th>" & x.name & "</th>") 
next% > 
</tr> 
<%odo until rs. EOF%o > 
<tr> 
<%for each xin rs.Fields%o > 
<td> < Y%oResponse.Write(x.value)Y%o> </td> 
< %onext 
rs.MoveNext%o > 
</tr> 
< %loop 
rs.close 
conn.close 
%> 
</table> 


</body> 
</html> 


OUTPUT 


Companyname Contactname 
FISSA Fabrica Inter. Salchichas S.A. Diego Roel 


[Galeria del gaströnomo Eduardo Saavedra 


4. ضع المستخدم يختار التصفية أو الفرز وذلك عن طريق البلد التي ينتمون إليها العملاء الذين يرغب في 


5 ؟ 


عرصم 


<html> 
<body> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb™")) 
set rs=Server.CreateObject("ADODB.recordset") 
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country" 
rs.Open:sql,conn 
country =request.form("country”) 
%> 
<form method="post" > 
Choose Country <select name="country" > 
<% do until rs. EOF 
response.write("<option") 
if rs.fields("country")=country then 
response.write(" selected") 
end if 
response.write(">" 
response.write(rs.fields("Country")) 
rs. MoveNext 
loop 
rs.Close 
set rs=Nothing %o> 
</select> 
<input type="submit" value="Show customers"> 
</form> 
<% 
if country < >"" then 
sql="SELECT Companyname,Contactname,Country FROM Customers 
WHERE country='" & country & """ 
set rs=Server.CreateObject("ADODB.Recordset") 
rs. Open sql,conn 
0%> 
<table width ="100%" cellspacing="0" cellpadding="2" border="1"> 
<İr> 
<th>Companyname</th> 
<th>Contactname</th> 
<th>Country</th> 
</tr> 
<% 


do until rs. EOF 
response.write("<tr>") 
response.write("<td>" & rs.fields("companyname”") & "</td>") 
response.write("<td>" & rs.fields("contactname") & "</td>") 
response.write("<td>" &rs.fields("country") & "</td>") 
response.write("</tr>") 
rs.MoveNext 

loop 

rs.close 

conn.Close 

set rs=Nothing 

set conn=Nothing%o > 

</table> 

<% end if %o> 

</body> 

</html> 


OUTPUT 


Choose County Austria =  Showcustomers 


ADO Sort 


Sort the Data ٽlilبil ترتيب‎ 


1. نحن نريد عرض "Customers" ءںnعll J> ja "Contactname" sy "Companyname" Ja‏ 
المطلوب : الترتیب حسب حقل ۸۵٥"‏ رصهم‌صه" . تذکر آن تحفظ الملف بامتداد ۸8۲. 
حیث یکون الکود کالاتي: 


<html> 

<body> 

< % 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4. 0" 
conn.Open(Server.Mappath("/db/northwind.mdb")) 
set rs = Server.CreateObject("ADODDB :recordset") 
sql="SELECT Companyname, Contactname FROM Customers ORDER 
BY CompanyName" 

rs.Open sql, conn 

0> 


<table border="1" width="100%"> 
<tr> 
<%ofor each x in rs.Fields 
response.write("<th>" & x.name & "</th>") 
next% > 
</tr> 
<%do until rs. EOF%o> 
<tr> 
<%for each x in rs.Fields%o> 
<td> < YoResponse.Write(x.value)%o > </td> 
< Yonext 
rs. MoveNext%o > 
</tr> 
<%loop 
rs.close 
conn.close 
0> 
</table> 
</body> 
</html> 


OUTPUT 


Companyname Contactname 
Aîreds Futterkiste Maria Anders 
[Berghınds snabbköp [Christina Berglund 
[Centro comercial Moctezuma [Francisco Chang 
Ernst Handel Foland Mendel 
FISSA Fabrica Inter. Salchichas S.A. Diego Roel 
Galeria del gastrênomo Eduardo Saavedra 
Island Trading Helen Bennett 
[Königlich Essen [Philip Cramer 
Laughing Bacchus Wine Cellars Yoshi Tannamuri 
Magazzini Alimentari Riuniti Giovanni Rovelli 
North’ South Simon Crowther 
Paris spêcialitês Marie Bertrand 
Rattlesnake Canyon Grocery Paula Wilson 
[Simons bistro (Dtte Petersen 
The Big Cheese Liz Nixon 
Vafeljernet Palle Ibsen 
Wolski Zajazd Zbyszek Piestrzeniewicz 


2. كيفية فرز البيانات تنازلياً بأسم الحقل المحدد يكون الكود كمايلى: 


<html> 
<body> 


<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb")) 

set rs = Server.CreateObject("ADODB.recordset") 

sql="SELECT Companyname, Contactname FROM Customers ORDER 
BY CompanyName DESC" 

rs.Open sql, conn 

> 


<table border="1" width ="100%"> 
<İr> 
<%for.each x in rs.Fields 
response.write("<th>" & x.name.& "</th>") 
next%o > 
</tr> 
<%do until rs. EOFY%o> 
<İr> 
<%ofor each x in rs.Fields%o> 
<td> < %oResponse.Write(x.value)Yo> </td> 
<Yonext 
rs.MoveNext%o > 
</tr> 
<%loop 
rs.close 
conn.close 
0> 
</table> 


</body> 
</html> 


OUTPUT 


Companyname Contactname 
[Wolski Zajazd [Zbyszek Piestrzeniewicz 
Vaffeljernet [Palle Ibsen 
The Big Cheese Liz Nixon 
Simons bistro Jytte Petersen 


Rattlesnake Canyon Grocery Paula Wilson 
Paris spécialités Marie Bertrand 
North'South Simon Crowther 
Magazzini Aliımentari Riumiti Giovanni Rovelli 
Laughing Bacchus Wine Cellars [Yoshi Tannamuri 
[Kêniglich Essen [Philip Cramer 
Island Trading Helen Bennett 
Galeria del gaströnomo Eduardo Saavedra 
FISSA Fabrica Inter. Salchichas S.A. Diego Roel 

Ernst Handel Roland Mendel 
Centro comercial Moctezuma Francisco Chang 
[Berghınds snabbköp [Christina Berglund 
[Alfreds Futterkiste [Maria Anders 


<html> 
<body> 
<table border="1" width="100%" bgcolor="#fffSee"> 
<tr> 
<th align="left" bgcolor="#bOc4de"> 
<a href="demo_sort _3.asp?sort=companyname">Company</a> 
</th> 
<th align="left" bgcolor="#bOc4de"> 
<a href="demo_sort_3.asp?sort=contactname">Contact</a> 
</th> 
</tr> 
<% 
if request.querystring("sort")< >"" then 
sort=request:querystring ("sort") 
else 
sort="companyname”" 
end if 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft:Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb™")) 
set rs=Server.CreateObject("ADODB.recordset") 
sql="SELECT Companyname,Contactname FROM Customers ORDER 
BY " & sort 
rs.Open sql,conn 
do until rs. EOF 
response.write("<tr>") 
for each x in rs.Fields 
responsée.write("<td>" & x.value & "</td>") 
next 
rs. MoveNext 
response.write("</tr>") 
loop 
rs.close 
conn.close 
0% > 
</table> 
</body> 
</html> 


OUTPUT 


Company Contact 

Alfreds Futterkiste Maria Anders 
Berglunds snabbkêöp Christina Berghınd 
Centro comercial Mocteruma Francisco Chang 


Ernst Handel Roland Mendel 
[FISSA Fabrica Inter. Salchichas S.A. Diego Roel 
Galeria del gastrênomo Eduardo Saavedra 
Island Trading Helen Bennett 
Königlich Essen Philip Cramer 
Laughing Bacchus Wine Cellars Yoshi Tannarmuri 
Magazzni Alimentari Riuniti Giovanni Rovelli 
North’ South Simon Crowther 
[Paris spécialités [Marie Bertrand 
Rattlesnake Canyon Grocery Paula Wilson 
Simons bistro Jytte Petersen 

The Big Cheese Liz Nixon 
Vaffeljernet Palle Ibsen 

Wolski Zajazd Zbyszek Piestrzeniewicz 


ADO Add RecordsJجس إضافة‎ 


Add a Record to a Table in a Database ٽlنlqبll إضافة سجل لجدول في قاعدة‎ 


إذا اردنا إضافة سجل جديد لجدول العملا ء "عص هون" في قاعدة البيانات السابقة "ل1س طاإهN"‏ علينا 
أولا : إنشاء نموذج يحتوى على جميع بيانات الحقل .حيث يكون الكود ؟ 


<html> 

<body> 

<form method="post" action="demo_add.asp"> 
<table> 

<tr> 

<td>CustomerID:</td> 

<td><input name="custid"'></td> 
<ltr><tr> 

<td>Company Name:</td> 
<td><input name="compname"></td> 
<ltr><tr> 

<td>Contact Name:</td> 

<td><input name="contname'"></td> 
<ltr><tr> 

<td>Address:</td> 

<td><input name="address"></td> 
<ltr><tr> 

<td>City:</td> 

<td><input name="city'"></td> 
<ltr><tr> 

<td>Postal Code:</td> 

<td><input name="postcode"></td> 
<ltr><tr> 

<td>Country:</td> 

<td><input name="country'"></td> 
</tr> 

</table> 

<br /><br /> 

<input type="submit" value="Add New'"> 
<input type="reset" value="Cancel"> 
</form> 

</body> 

</html> 


عندما يضغط المستخدم علی زر الارسال ٤نصطںء‏ یرسل النموذج 2 ملف یدعی "demo_add.asp"'و la‏ 
الملف يحتوى على کود ویقوم هذا الكود باضافة سجل جديد 2 جدول العملاء Customers‏ الجدول المحدد 1 
ک انب ٣‏ طت کیک کرو ا الک۹ سوال 4 ھکد کون کرد : 


<html> 
<body> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
sql="INSERT INTO customers (customerID,companyname," 
sql=sql & "contactname,address,city,postalcode,country)" 
sql=sql & " VALUES " 
sql=sql & "(" & Request.Form("custid") & ""," 
sql=sql & """ & Request.Form("compname") & '""," 
sql=sql & """ & Request.Form(""contname") & ""," 
sql=sql & """ & Request.Form("address") & ""," 
sql=sql & """ & Request.Form( city") & ""," 
sql=sql & """ & Request.Form(""postcode") & ""," 
sql=sql & """ & Request.Form("country") & "")" 
on error resume next 
conn.Execute sql,recaffected 
if err<>0 then 
Response. Write("No update permissions!") 
else 
Response. Write("<h3>" & recaffected & " record added</h3>") 
end if 
conn.close 
> 
</body> 
</html> 


MII 


Important a4a 
-: ينبغي عليك العلم بما یلی‎ 5Q1 [NS ٤۸1 إذا كنت تستخدم‎ 


1. إذا كان الجدول يحتوى على مفتاح أساسي تأكد من إدخال قيمة فريدة من نوعها وعدم تركه 
خاليا "N01."‏ ( أن لم يتم ذلك لن يضاف السجل أو يحدث خطاً ). 

2. إذا كان الجدول يحتوى على حقل ترقيم تسلسلي ,عدم تضمين هذا الحقل في الامرR1غ1×NS SQ1‏ ) 
لانه تتم توليد قيمه تلقائيا ). 


ملاحظة : ليس كل قوأعد البيانات تدعم سلاسل ذات طول صفري ويمكن أن يتسبب خطأ عند إضافة سجل. من 
المهم أن تحقق ما أنواع البيانات قاعدة البيانات الخاصة بك. 


ADO Update Records 


Update a Record in a Taؤۆle‎ Jودجئاi تحديث السجل فى‎ 


لو أردنا تحديث سجل في الجدول العملاء "eاطھ)‏ وامصهاوu٥"‏ في قاعدة بيانات" No1 wd.‏ " علينا أولا 


<html> 
<body> 
<% 
set conn=Server.CreateObject(" ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs=Server.CreateObject(" ADODB.Recordset") 
rs.open "SELECT * FROM customers",conn 
> 
<h2>List Database</h2> 
<table border="1" width="100%'"> 
<I> 
<% 
for each x in rs.Fields 
response.write("<th>" & ucase(x.name) & "</th>") 
next 
> 
<ltr> 
<% do until rs.EOF %> 
<I> 
<form method="post" action="demo_update.asp"> 
<% 
for each x in rs.Fields 
if Icase(x.name)="customerid" then%> 
<td> 
<input type="submit" name="customerID" value="<%=x.value%>"> 
</td> 
<%else%> 
<td><%Response.Write(x.value)%></td> 
<%end if 
next 
> 
</form> 
<%rs.MoveNext%> 
<ltr> 
<% 


loop 
conn.close 
> 
</table> 
</body> 
</html> 


إذا المستخدم نقر على الزر في عمود ٥۲10"‏ ٥)یںء"‏ سوف يأخذ ملف جديد يدع "pیھ.dateمu_‏ ٥ہع‏ 'و 
1em 0_update.asp"‏ "يحتوى على شفرة المصدر و كيفية إنشاء حقول إدخال بناءا على حقول من سجل واحد 
موجود في جدول قاعدة البیانات. كما آنه یحتوی على سجل تحديث "۲۵٥ء٠۲‏ ٥4ل‏ مل "ويقوم يحفظ تعديلاتك. 


<html> 
<body> 
<h2>Update Record</h2> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
cid=Request.Form("customerID") 
if Request.form("companyname")="" then 
set rs=Server.CreateObject("ADODB.Recordset") 
rs.open "SELECT * FROM customers WHERE customerlID='"" & cid & """,conn 
> 
<form method="post" action="demo_update.asp'"> 
<table> 
<%for each x in rs.Fields%> 
<i> 
<td><%=x.name%></td> 
<td><input name="<%=x.name%>" value="<%=x.value%>"></td> 
<%next%> 
<tr> 
</table> 
<br /><br /> 
<input type="submit" value="Update record"> 
</form> 
<% 
else 
sql=" UPDATE customers SET " 
sql=sql & "companyname='"" & Request.Form("companyname") & ""," 
sql=sql & "contactname='" & Request.Form("contactname") & ""," 
sql=sql & "address='" & Request.Form("address") & ""," 
sql=sql & "city='"" & Request.Form("city") & ""," 
sql=sql & "postalcode='" & Request.Form("postalcode") & ""," 
sql=sql & "country='" & Request.Form("country") & """ 
sql=sql & " WHERE customerID='"" & cid & '"""" 
on error resume next 


conn.Execute sql 
if err<>0 then 
response.write("No update permissions!) 
else 
response.write("Record " & cid & " was updated!") 
end if 
end if 
conn.close 
> 
</body> 
</html> 


ADO Delete Records 


Delete a Record in a Table Jودجئأا حذف سجل فى‎ 


نريد أن نحذف سجل في جدول العملاء ماطها ؟إعمصهاوں في قاعدة بيانات wd.‏ طاإهN‏ علينا أولا إنشاء 
الجدول الذي يدر ج جميع السجلات 2 جدول العملاء: 


<html> 
<body> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs=Server.CreateObject("ADODB.Recordset") 
rs.open "SELECT * FROM customers",conn 
> 
<h2>List Database</h2> 
<table border="1" width="100%'"> 
<> 
<% 
for each x in rs.Fields 
response.write("<th>" & ucase(x.name) & "</th>") 
next 
> 
<> 
<% do until rs.EOF %> 


<I> 
<form method="post" action="demo_delete.asp"> 
<% 
for each x in rs.Fields 
1f x.name="customerID" then%> 
<td> 
<input type="submit" name="customerID" value="<%=x.value%>'"> 
</td> 
<%else%> 
<td><%Response. Write(x.value)%></td> 
<%end if 
next 
> 
</form> 
<%ors.MoveNext%> 
<tr> 
<% 
loop 
conn.close 
> 
</table> 
</body> 
</html> 


إذا المستخدم قام بالنقر على الزر في عمود ٥۲15"‏ ہ)وںء" سوف يأخذ ملف جديد يدعى " _0رعل : 
spه.eteاe"و‏ هذا الملف "مءه.ع)ع1اعل _0 ءل "يحتوى على شفرة المصدر و كيفية إنشاء حقول إدخال بناءا 
على حقول من سجل واحد موجود في جدول قاعدة البيانات. كما أنه يحتوى على سجل المسح " ع†م[عل 
record"الزر‏ الذي سيؤدي 2 حذف السجل الحالي ۴ 


<html> 
<body> 
<h2>Delete Record</h2> 
<% 
set conn=Server.CreateObject(" ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
cid=Request.Form("customerID") 
if Request.form("companyname")="" then 
set rs=Server.CreateObject("ADODB.Recordset") 
rs.open "SELECT * FROM customers WHERE customerlD=" & cid & """,conn 
> 
<form method="post" action="demo_delete.asp"> 
<table> 
<%for each x in rs.Fields%> 
<ir> 
<td><%=x.name%><l/td> 


<td><input name="<%=x.name%>" value="<%=x.value%>"></td> 
<%next%> 
</tr> 
</table> 
<br /><br /> 
<input type="submit" value=" Delete record"> 
</form> 
<% 
else 
sql="DELETE FROM customers" 
sql=sql & " WHERE customerlD='"" & cid & '""" 
on error resume next 
conn.Execute sql 
if err<>0 then 
response.write("No update permissions!") 
else 
response.write(" Record " & cid & " was deleted!") 
end if 
end if 
conn.close 
> 
</body> 
</html> 


إيضھاٽ ADO Demonstration‏ 
قراءة هذا أولا 
إذا حاولت تحديث قاعدة البيانات» فسوف تحصل على رسالة الخطأ :"لا يوجد لديك الإذن بتحديث قاعدة البيانات 
هذه"". يمكنك الحصول على هذا الخطأ لأن ليس لديك حق الوصول إلى خادمنا. 
ولكن » إذا قمت بنسخ كود وتشغيله على النظام الخاص بك» قد تحصل على نفس الخطاً. ذلك لأن هذا النظام ربما 
إعتبرك كمستخدم انترنت مجهول عند الوصول إلى الملفات عن طريق المتصفح. في هذه الحالة › يمكنك تغيير 
حقوق الوصول للوصول إلى الملف. 


كيفية تغيير حقوق الوصول لقاعدة بيانات ووععء۸ الخاصة بك؟ 

فتح مستعرض ال )]nternet Expاore۲) ۰W1ہل0 ws‏ العثور على ملف طاله.. في ملف طال. وحدد 

خصائص ١ع‏ :۲م٥۴‏ تم انقر بالزر الايمن. انتقل إلى التبويب أمانطع) راآإاءم؟ وقم تحديد حقوق وأطعا] . 
ADO Speed Up With GetStrind()‏ 


Multiple Response.Write's 


المثال التالي يوضح طريقة كيفية عرض استعلام قاعدة البيانات في جدول ا1M]‏ : 


<html> 

<body> 

<% 

set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 

conn.Open "c:/webdata/northwind.mdb" 

set rs = Server.CreateObject("ADODB.recordset") 

rs.Open "SELECT Companyname, Contactname FROM Customers", conn 
> 

<table border="1" width="100%'"'> 

<%do until rs.EOF%> 

<tr> 

<td><%Response. Write(rs.fields("Companyname"))%></td> 
<td><%Response. Write(rs.fields("Contactname"))%></td> 
<tt> 

<%rs.MoveNext 

loop%> 

</table> 

<% 

rs.close 

conn.close 

set rs = Nothing 

set conn = Nothing 

> 

</body> 

<html> 


إستعلام مثل هذا يمكن أن يبطئ وقت المعالجة النصية ع١1وومعهإم‏ امذإءء إذ لابد من معالجة العديد من 
الأوامر ع Response. W1‏ من قبل الملقم أو الخادم. 


والحل هو أن تنشئ سلسلة كاملة إبتداً من <م[طه)> وإلي <ع[طم)/> وإخراج ذلك بإستخدام 


س 


, مرة واحدة فقط‎ Response. Write 


The GetString() MethodJ' طريڌة‎ 


هذة الطريقة ()ع١1٣5)ء6‏ تسمح بعرض سلسلة مع عبارة ماز٣۷‏ .6١0موم R‏ واحدة فقط ! والتتحقق من 
recordsetJl jÎ‏ ف„ EOF JÛ!‏ 


الصيغة: 


str = rs.GetString(format,rows,coldel,rowdel,nullexpr) 


لإنشاء جدول ]۳1 مع البيانات من السجلات "عو ]0ءء ٠"8‏ نحن بحاجة فقط لاستخدام ثلاث من 
المعاملات أعلاه(جميع المعاملات اختيارية ( 

de1اco M1‏ Hلستخدام‏ کفاصل عمود 

1M 1L row de1‏ Hللستخدام‏ كفاصل الصف 

NULL إِذا کان العمود یحتوی علآی‎ مادختسلH‎ "M1 nullexpr 


ملاحظة () عمنع)؟)ع6 : طريقة هي ميزة .۸50 2.0 يمكنك تحميل 2.0 ۸50 على الرابط التالى: 


.http://www.microsoft.com/data/download.htm 


<html> 

<body> 

< % 

set conn=Server.CreateObject("ADODB.Connection") 
Conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open(Server.Mappath("/db/northwind.mdb™")) 
set rs = Server.CreateObject("ADODB.recordset") 
rs.Open "SELECT Companyname, Contactname FROM Customers", 
conn 

str=rs.GetString(,," </td> <td>","</td> </tr> <tr> <td>"," ") 
0% > 

<table border="1" width ="100%"> 

<Ir> 

<td> < VoResponse.Write(str)Yo> </td> 

</tr> 

</table> 

< % 

rs.close 

conn.close 

set rs = Nothing 

set conn = Nothing 

%> 


</body> 
</html> 


OUTPUT 


Alfîreds Futterkiste Maria Anders 
Berghmds snabbköp Christina Berghınd 
[Centro comercial Moctezuma [Francisco Chang 
Ernst Handel Roland Mendel 
FISSA Fabrica Inter. Salchichas S.A. Diego Roel 
Galeria del gaströnomo Eduardo Saavedra 
Island Trading [Helen Bennett 
Kûöniglich Essen Philip Cramer 
Laughing Bacchus Wine Cellars Yoshi Tannamuri 
Magazzmi Alimentari Rimi Giovanni Rovelli 
North'South Simon Crowther 
[Paris spécialités [Marie Bertrand 
Rattlesnake Canyon Grocery Paula Wilson 
Simons bistro Jytte Petersen 
The Big Cheese Liz Nixon 
Vaffeljemet [Palle Ibsen 


Wolski Zajazd Zbyszek Piestrzeniewicz 


متغیر S)۲‏ يحتوى أعلاه على كل الصفوف والاعمدة وترجع بواسطة عبارة 3Q SELEC1۲‏ بین کل عمود 
t1‏ سوف تظھر </ل)><ل)> وبین کل صف 1ط سوف تظھر </)><۲)><)/><ل)> هذ بالضبط ینتج 
html‏ مع عبار ة Response. Write‏ واحدة فقط ! 


هذا الکذاب م نرجمنه من موق# www. w3school.co0/asp‏ 


والتمجر مهل الجر بعد إلله سبهانه وتمال للإستا بذ :مجتبج فضا الول الصافج الذج 
ساغو نج فج التر جمة من شلال إففاضراد. 


